home *** CD-ROM | disk | FTP | other *** search
/ Programming Sound Cards / Programming Sound Cards.iso / sound_80 / midiunit.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-01-01  |  1.2 KB  |  38 lines
  1. unit MidiUnit;
  2.  
  3. interface
  4.  
  5. uses
  6.   WinTypes;
  7.  
  8. function ErrorMsg(Error: LongInt; Msg: PChar): Boolean;
  9. function OpenMci(PWindow: HWnd; FileName, DeviceType: PChar): Boolean;
  10. procedure CloseMci;
  11. procedure PlayMci;
  12. procedure PauseMidi;
  13. function GetMidiInfo(S: PChar): PChar;
  14. function CheckForMapper: Boolean;
  15. procedure SetTimeFormatMS;
  16. function GetLocation: LongInt;
  17. function StopMCI: Boolean;
  18. function GetInfo(S: PChar): PChar;
  19. function GetDeviceId: Word;
  20. function GetLen: Longint;
  21. function GetMode: Longint;
  22. implementation
  23.  
  24. function ErrorMsg; external 'MIDIINFO' index 1;
  25. function OpenMci; external 'MIDIINFO' index 2;
  26. procedure CloseMci; external 'MIDIINFO' index 3;
  27. procedure PlayMci; external 'MIDIINFO' index 4;
  28. procedure PauseMidi; external 'MIDIINFO' index 5;
  29. function GetMidiInfo; external 'MIDIINFO' index 6;
  30. function CheckForMapper; external 'MIDIINFO' index 7;
  31. procedure SetTimeFormatMS; external 'MIDIINFO' index 8;
  32. function GetLocation; external 'MIDIINFO' index 9;
  33. function StopMci; external 'MIDIINFO' index 10;
  34. function GetInfo; external 'MIDIINFO' index 11;
  35. function GetDeviceId; external 'MIDIINFO' index 12;
  36. function GetLen; external 'MIDIINFO' index 13;
  37. function GetMode; external 'MIDIINFO' index 14;
  38. end.